/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / maths / rpi / !RPI / Orig

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1f 20 f4 20 3e | 20 3c 57 69 6d 70 53 79 |.... . >| <WimpSy|
|00000010| 73 24 44 69 72 3e 2e 52 | 50 49 49 4e 44 45 58 0d |s$Dir>.R|PIINDEX.|
|00000020| 00 14 21 20 f4 20 43 6f | 70 79 72 69 67 68 74 20 |..! . Co|pyright |
|00000030| 45 2e 46 2e 4c 6f 72 64 | 20 32 33 2f 39 2f 39 30 |E.F.Lord| 23/9/90|
|00000040| 0d 00 1e 09 20 eb 20 31 | 31 0d 00 28 11 20 40 25 |.... . 1|1..(. @%|
|00000050| 3d 26 30 30 30 32 30 32 | 30 41 0d 00 32 0c 20 ee |=&000202|0A..2. .|
|00000060| 85 e5 8d 74 42 40 0d 00 | 3c 0d 20 de 72 70 69 28 |...tB@..|<. .rpi(|
|00000070| 37 30 29 0d 00 46 0a 20 | 69 6e 66 3d 35 0d 00 50 |70)..F. |inf=5..P|
|00000080| 20 20 e3 78 3d 30 b8 36 | 35 3a f3 69 6e 64 78 3a |  .x=0.6|5:.indx:|
|00000090| 72 70 69 28 78 29 3d 69 | 6e 64 78 3a ed 0d 00 5a |rpi(x)=i|ndx:...Z|
|000000a0| 06 20 f5 0d 00 64 0e 20 | f2 71 75 65 73 74 69 6f |. ...d. |.questio|
|000000b0| 6e 0d 00 6e 0c 20 f2 61 | 6e 73 77 65 72 0d 00 78 |n..n. .a|nswer..x|
|000000c0| 07 20 fd a3 0d 00 82 1f | 20 e7 9f 3c 3e 31 37 3a |. ......| ..<>17:|
|000000d0| ee 85 87 3a f6 3a f1 22 | 20 40 20 6c 69 6e 65 20 |...:.:."| @ line |
|000000e0| 22 3b 9e 0d 00 8c 06 20 | e0 0d 00 96 9d 20 dc 20 |";..... |..... . |
|000000f0| 36 2e 33 34 2c 36 2e 32 | 32 2c 36 2e 30 35 2c 35 |6.34,6.2|2,6.05,5|
|00000100| 2e 39 38 2c 35 2e 39 32 | 2c 35 2e 37 30 2c 35 2e |.98,5.92|,5.70,5.|
|00000110| 33 33 2c 35 2e 31 39 2c | 35 2e 30 35 2c 35 2e 31 |33,5.19,|5.05,5.1|
|00000120| 30 2c 35 2e 31 35 2c 35 | 2e 33 2c 35 2e 35 37 2c |0,5.15,5|.3,5.57,|
|00000130| 35 2e 36 34 2c 35 2e 37 | 31 2c 36 2e 36 34 2c 37 |5.64,5.7|1,6.64,7|
|00000140| 2e 31 38 2c 37 2e 32 32 | 2c 37 2e 31 38 2c 37 2e |.18,7.22|,7.18,7.|
|00000150| 32 35 2c 37 2e 33 34 2c | 37 2e 33 35 2c 37 2e 34 |25,7.34,|7.35,7.4|
|00000160| 30 2c 37 2e 39 30 2c 38 | 2e 31 32 2c 38 2e 33 37 |0,7.90,8|.12,8.37|
|00000170| 2c 39 2e 31 33 2c 39 2e | 39 37 2c 31 30 2e 32 38 |,9.13,9.|97,10.28|
|00000180| 2c 31 30 2e 34 37 0d 00 | a0 b8 20 dc 20 31 30 2e |,10.47..|.. . 10.|
|00000190| 39 34 2c 31 31 2e 34 38 | 2c 31 31 2e 39 2c 31 32 |94,11.48|,11.9,12|
|000001a0| 2e 32 36 2c 31 32 2e 33 | 33 2c 31 32 2e 34 35 2c |.26,12.3|3,12.45,|
|000001b0| 31 32 2e 38 38 2c 31 33 | 2e 34 32 2c 31 33 2e 36 |12.88,13|.42,13.6|
|000001c0| 39 2c 31 34 2e 31 34 2c | 31 34 2e 38 32 2c 31 35 |9,14.14,|14.82,15|
|000001d0| 2e 34 2c 31 35 2e 37 38 | 2c 31 36 2e 35 32 2c 31 |.4,15.78|,16.52,1|
|000001e0| 37 2e 34 32 2c 31 38 2e | 35 33 2c 32 30 2e 32 38 |7.42,18.|53,20.28|
|000001f0| 2c 32 31 2e 37 31 2c 32 | 33 2e 37 31 2c 32 37 2e |,21.71,2|3.71,27.|
|00000200| 35 31 2c 33 34 2e 31 37 | 2c 33 39 2e 38 33 2c 34 |51,34.17|,39.83,4|
|00000210| 36 2e 31 34 2c 34 39 2e | 39 36 2c 35 36 2e 36 36 |6.14,49.|96,56.66|
|00000220| 2c 36 36 2e 38 34 2c 37 | 34 2e 37 38 2c 38 31 2e |,66.84,7|4.78,81.|
|00000230| 32 31 2c 38 34 2e 39 35 | 2c 38 39 2e 31 36 0d 00 |21,84.95|,89.16..|
|00000240| aa 2d 20 dc 20 39 34 2e | 35 39 2c 39 37 2e 38 32 |.- . 94.|59,97.82|
|00000250| 2c 31 30 31 2e 38 38 2c | 31 30 36 2e 38 38 2c 31 |,101.88,|106.88,1|
|00000260| 31 35 2e 32 31 2c 31 32 | 35 2e 31 0d 00 b4 05 3a |15.21,12|5.1....:|
|00000270| 0d 00 be 0f 20 dd f2 71 | 75 65 73 74 69 6f 6e 0d |.... ..q|uestion.|
|00000280| 00 c8 0d 20 db 3a f2 74 | 69 74 6c 65 0d 00 d2 08 |... .:.t|itle....|
|00000290| 20 79 3d 36 0d 00 dc 06 | 20 f5 0d 00 e6 2f 20 e8 | y=6....| ..../ .|
|000002a0| 8a 30 2c 79 29 22 45 6e | 74 65 72 20 31 73 74 20 |.0,y)"En|ter 1st |
|000002b0| 79 65 61 72 20 66 6f 72 | 20 63 6f 6d 70 61 72 69 |year for| compari|
|000002c0| 73 6f 6e 20 22 79 65 61 | 72 0d 00 f0 0d 20 fd a4 |son "yea|r.... ..|
|000002d0| 64 61 74 65 6f 6b 0d 00 | fa 13 20 64 61 74 65 31 |dateok..|.. date1|
|000002e0| 24 3d c3 28 79 65 61 72 | 29 0d 01 04 2d 20 f1 8a |$=.(year|)...- ..|
|000002f0| 30 2c 79 2b 32 29 22 45 | 6e 74 65 72 20 63 6f 73 |0,y+2)"E|nter cos|
|00000300| 74 20 6f 66 20 69 74 65 | 6d 20 69 6e 20 22 3b 64 |t of ite|m in ";d|
|00000310| 61 74 65 31 24 3b 0d 01 | 0e 11 20 e8 22 20 a3 20 |ate1$;..|.. ." . |
|00000320| 22 70 72 69 63 65 31 0d | 01 18 04 0d 01 22 09 20 |"price1.|.....". |
|00000330| 79 3d 31 30 0d 01 2c 06 | 20 f5 0d 01 36 2f 20 e8 |y=10..,.| ...6/ .|
|00000340| 8a 30 2c 79 29 22 45 6e | 74 65 72 20 32 6e 64 20 |.0,y)"En|ter 2nd |
|00000350| 79 65 61 72 20 66 6f 72 | 20 63 6f 6d 70 61 72 69 |year for| compari|
|00000360| 73 6f 6e 20 22 79 65 61 | 72 0d 01 40 0d 20 fd a4 |son "yea|r..@. ..|
|00000370| 64 61 74 65 6f 6b 0d 01 | 4a 13 20 64 61 74 65 32 |dateok..|J. date2|
|00000380| 24 3d c3 28 79 65 61 72 | 29 0d 01 54 06 20 e1 0d |$=.(year|)..T. ..|
|00000390| 01 5e 06 20 3a 0d 01 68 | 0d 20 dd a4 64 61 74 65 |.^. :..h|. ..date|
|000003a0| 6f 6b 0d 01 72 1d 20 e7 | 79 65 61 72 3c 31 30 30 |ok..r. .|year<100|
|000003b0| 8c 79 65 61 72 3d 31 39 | 30 30 2b 79 65 61 72 0d |.year=19|00+year.|
|000003c0| 01 7c 35 20 e7 20 79 65 | 61 72 3c 31 39 32 35 20 |.|5 . ye|ar<1925 |
|000003d0| 84 20 79 65 61 72 3e 31 | 39 39 30 20 8c 20 f1 8a |. year>1|990 . ..|
|000003e0| 30 2c 79 29 c4 34 30 2c | 22 20 22 29 3a 3d a3 20 |0,y).40,|" "):=. |
|000003f0| 8b 20 3d b9 0d 01 86 06 | 20 3a 0d 01 90 0d 20 dd |. =.....| :.... .|
|00000400| f2 61 6e 73 77 65 72 0d | 01 9a 0d 20 db 3a f2 74 |.answer.|... .:.t|
|00000410| 69 74 6c 65 0d 01 a4 20 | 20 79 72 31 3d bb 28 64 |itle... | yr1=.(d|
|00000420| 61 74 65 31 24 29 3a 79 | 72 32 3d bb 28 64 61 74 |ate1$):y|r2=.(dat|
|00000430| 65 32 24 29 0d 01 ae 2a | 20 72 70 69 31 3d 72 70 |e2$)...*| rpi1=rp|
|00000440| 69 28 79 72 31 2d 31 39 | 32 35 29 3a 72 70 69 32 |i(yr1-19|25):rpi2|
|00000450| 3d 72 70 69 28 79 72 32 | 2d 31 39 32 35 29 0d 01 |=rpi(yr2|-1925)..|
|00000460| b8 1c 20 70 72 69 63 65 | 32 3d 70 72 69 63 65 31 |.. price|2=price1|
|00000470| 2a 72 70 69 32 2f 72 70 | 69 31 0d 01 c2 15 20 65 |*rpi2/rp|i1.... e|
|00000480| 6c 61 70 73 3d 94 28 79 | 72 32 2d 79 72 31 29 0d |laps=.(y|r2-yr1).|
|00000490| 01 cc 15 20 e7 65 6c 61 | 70 73 3d 30 8c 65 6c 61 |... .ela|ps=0.ela|
|000004a0| 70 73 3d 31 0d 01 d6 1d | 20 61 76 72 70 69 3d 94 |ps=1....| avrpi=.|
|000004b0| 28 72 70 69 32 2d 72 70 | 69 31 29 2f 65 6c 61 70 |(rpi2-rp|i1)/elap|
|000004c0| 73 0d 01 e0 2b 20 e7 79 | 72 31 3c 79 72 32 20 8c |s...+ .y|r1<yr2 .|
|000004d0| 6b 3d 28 72 70 69 32 2f | 72 70 69 31 29 20 8b 6b |k=(rpi2/|rpi1) .k|
|000004e0| 3d 28 72 70 69 31 2f 72 | 70 69 32 29 0d 01 ea 1e |=(rpi1/r|pi2)....|
|000004f0| 20 69 3d 28 31 30 5e 28 | ab 28 6b 29 2f 65 6c 61 | i=(10^(|.(k)/ela|
|00000500| 70 73 29 2d 31 29 2a 31 | 30 30 0d 01 f4 3f 20 f1 |ps)-1)*1|00...? .|
|00000510| 8a 30 2c 36 29 22 41 76 | 65 72 61 67 65 20 52 65 |.0,6)"Av|erage Re|
|00000520| 74 61 69 6c 20 50 72 69 | 63 65 20 49 6e 64 65 78 |tail Pri|ce Index|
|00000530| 20 66 6f 72 20 22 3b 64 | 61 74 65 31 24 3b 22 20 | for ";d|ate1$;" |
|00000540| 69 73 20 22 2c 72 70 69 | 31 0d 01 fe 3f 20 f1 8a |is ",rpi|1...? ..|
|00000550| 30 2c 37 29 22 41 76 65 | 72 61 67 65 20 52 65 74 |0,7)"Ave|rage Ret|
|00000560| 61 69 6c 20 50 72 69 63 | 65 20 49 6e 64 65 78 20 |ail Pric|e Index |
|00000570| 66 6f 72 20 22 3b 64 61 | 74 65 32 24 3b 22 20 69 |for ";da|te2$;" i|
|00000580| 73 20 22 2c 72 70 69 32 | 0d 02 08 30 20 f1 8a 30 |s ",rpi2|...0 ..0|
|00000590| 2c 39 29 20 22 52 50 49 | 20 20 69 6e 64 65 78 20 |,9) "RPI|  index |
|000005a0| 20 6d 75 6c 74 69 70 6c | 69 65 72 20 20 69 73 20 | multipl|ier  is |
|000005b0| 20 20 20 20 20 22 2c 6b | 0d 02 12 32 20 f1 8a 30 |     ",k|...2 ..0|
|000005c0| 2c 31 30 29 22 49 6e 76 | 65 72 73 65 20 52 50 49 |,10)"Inv|erse RPI|
|000005d0| 20 69 6e 64 65 78 20 6d | 75 6c 74 69 70 6c 69 65 | index m|ultiplie|
|000005e0| 72 20 69 73 20 22 2c 31 | 2f 6b 0d 02 1c 3e 20 f1 |r is ",1|/k...> .|
|000005f0| 8a 30 2c 31 32 29 22 41 | 76 65 72 61 67 65 20 63 |.0,12)"A|verage c|
|00000600| 68 61 6e 67 65 20 69 6e | 20 52 50 49 20 70 65 72 |hange in| RPI per|
|00000610| 20 61 6e 6e 75 6d 20 69 | 73 20 22 2c 61 76 72 70 | annum i|s ",avrp|
|00000620| 69 3b 22 20 70 74 73 22 | 0d 02 26 38 20 f1 8a 30 |i;" pts"|..&8 ..0|
|00000630| 2c 31 33 29 22 41 76 65 | 72 61 67 65 20 20 72 61 |,13)"Ave|rage  ra|
|00000640| 74 65 20 20 6f 66 20 20 | 69 6e 66 6c 61 74 69 6f |te  of  |inflatio|
|00000650| 6e 20 20 20 20 20 20 20 | 22 2c 69 3b 22 20 25 22 |n       |",i;" %"|
|00000660| 0d 02 30 43 20 f1 8a 30 | 2c 31 35 29 22 49 6e 20 |..0C ..0|,15)"In |
|00000670| 20 22 3b 64 61 74 65 31 | 24 3b 22 20 20 74 68 65 | ";date1|$;"  the|
|00000680| 20 20 73 75 6d 20 20 67 | 69 76 65 6e 20 20 77 61 |  sum  g|iven  wa|
|00000690| 73 20 20 20 20 20 20 20 | a3 20 20 22 2c 70 72 69 |s       |.  ",pri|
|000006a0| 63 65 31 0d 02 3a 43 20 | f1 8a 30 2c 31 37 29 22 |ce1..:C |..0,17)"|
|000006b0| 67 69 76 69 6e 67 20 61 | 6e 20 65 71 75 69 76 61 |giving a|n equiva|
|000006c0| 6c 65 6e 74 20 76 61 6c | 75 65 20 69 6e 20 22 3b |lent val|ue in ";|
|000006d0| 64 61 74 65 32 24 3b 22 | 20 6f 66 20 a3 20 22 2c |date2$;"| of . ",|
|000006e0| 70 72 69 63 65 32 0d 02 | 44 27 20 f1 8a 30 2c 32 |price2..|D' ..0,2|
|000006f0| 32 29 22 50 72 65 73 73 | 20 52 45 54 55 52 4e 20 |2)"Press| RETURN |
|00000700| 74 6f 20 63 6f 6e 74 69 | 6e 75 65 22 3b 0d 02 4e |to conti|nue";..N|
|00000710| 0c 20 f5 3a fd a5 3d 31 | 33 0d 02 58 06 20 e1 0d |. .:..=1|3..X. ..|
|00000720| 02 62 06 20 3a 0d 02 6c | 0c 20 dd f2 74 69 74 6c |.b. :..l|. ..titl|
|00000730| 65 0d 02 76 08 20 ef 20 | 35 0d 02 80 17 20 c8 93 |e..v. . |5.... ..|
|00000740| 20 31 30 2c 38 32 30 2c | 31 32 36 30 2c 31 36 30 | 10,820,|1260,160|
|00000750| 0d 02 8a 18 20 ef 20 32 | 33 2c 31 37 2c 37 2c 36 |.... . 2|3,17,7,6|
|00000760| 2c 38 3b 31 36 3b 30 3b | 0d 02 94 0e 20 ec 20 34 |,8;16;0;|.... . 4|
|00000770| 32 30 2c 39 32 30 0d 02 | 9e 24 20 f1 22 55 4b 20 |20,920..|.$ ."UK |
|00000780| 52 45 54 41 49 4c 20 50 | 52 49 43 45 53 20 31 39 |RETAIL P|RICES 19|
|00000790| 32 35 20 2d 20 31 39 39 | 30 22 0d 02 a8 25 20 f4 |25 - 199|0"...% .|
|000007a0| 20 50 52 49 4e 54 54 41 | 42 28 31 33 2c 33 29 22 | PRINTTA|B(13,3)"|
|000007b0| 28 52 65 62 61 73 65 64 | 20 31 39 38 37 29 22 0d |(Rebased| 1987)".|
|000007c0| 02 b2 04 0d 02 bc 08 20 | ef 20 34 0d 02 c6 06 20 |....... |. 4.... |
|000007d0| e1 0d ff                |                         |...     |        |
+--------+-------------------------+-------------------------+--------+--------+